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-- SystemOisplay.mesa; edited by Johnsson; October 14, 1977 4:17 PM 

DIRECTORY 

AUoDefs: FROM "altodefs". 
DisplayDefs: FROM "displ aydef s" , 
FontDefs: FROM "fontdefs", 
ImageDefs: FROM "imagedef s" , 
InlineDefs: FROM "in! inedef s" , 
SegmentDefs: FROM "segmen tdefs" , 
StreamDefs: FROM "streamdef s" ; 

SystemDi splay; PROGRAM 

IMPORTS ImageDefs, SegmentDefs, StreamDefs 
EXPORTS DisplayDefs, StreamDefs 
SHARES StreamDefs - 

BEGIN 

StreamHandle: TYPE = StreamDefs .StreamHandle; 
OrderedPOINTER: TYPE = ORDERED POINTER; 
OrderedNIL: OrderedPOINTER = LOOPHOLE[NIL] ; 

TAB: CHARACTER = IIC; 
CR: CHARACTER = 15C: 
NUL: CHARACTER = OC; 
SP: CHARACTER = ' ; 

-- Display Hardware 

DCBchainHead: DCBptr = LOOPHOLE[420B] ; 

DCBnil: DCBptr = LOOPHOLE[0] ; 

DCBptr: TYPE = POINTER TO DCB; 

DCB: TYPE * RECORD [ 
next: DCBptr, 
resolution: {high, low}, 
background: DisplayOef s .Background, 

indenting: [0..77B], -- in units of 16 bits 

width: [0..377B], -- in units of 16 bits, must be even 

bitmap: OrderedPOINTER, -- must be even 

height: CARDINAL]; -- in double scan lines 

LeftMargin: CARDINAL = 8; 

RightMargin: CARDINAL - 606; 

MaxWordsPerLine: CARDINAL = 38; 

DSP: Display StreamDefs . StreamObject *- StreamDefs .StreamObject [ 
reset: ClearDS, 
get: GetNop, 
put: DPutChar, 
putback: PutbackNop. 
endof: EndofNop, 
destroy: DestroyNop, 
body: D isplay[ ..,,,,,,,]]; 

systemDS: StreamDefs .D i splayHandle = QDSP; 

displayOn: BOOLEAN ♦- FALSE; 

bmSegment : SegmentDefs . DataSegmen tHandl e ; 

bmFirst, bmTail, bmNext, bmLastLine: OrderedPOINTER; 

lineHeight, 1 as tL ineSize : CARDINAL; 

dummyDCB: DCBptr; 

rirsLDCB. lastDCB, currentDCB: DCBptr *• DCBnil; 

-- 1 ayou t of b i tmap is : 

DCBs: ARRAY [ f i rs tDCB . . 1 as tDCB] OF DCB, 

bmPirsL: ARRAY OF UNSPrCIPrFD, 

bmlastl ine: ARRAY [0 . . 1 i neHe i gh t*MaxWordsPerL i ne) OF UNSPfCIFICD. 
-- bmNext points to next word to allocate, 
-- bmTail points to oldest allocated bitmap. 

bmS tate : Fon tDef s . B i tmapS tate ; 

tabWidth: CARDINAL; 

TAB index: [0. .9]; 

tabs: ARRAY [0..g] Of CARDINAl ; 

font: FontDefs. FontHandle ^ NIL; 

-- Typescript data 
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typescript: PUBLIC StreamDef s.DiskHandle ♦- NIL; 
startLine: StreamDefs.Streamlndex ♦• [0, 0]; 

GetDefauUDisplayStream: PUBLIC PROCEDURE RETURNSCStreamDef s.DisplayHandle] = 
BEGIN 

RETURN[systemDS]; 
END; 

SetupBitmap: PROCEDURE [bitmap: POINTER, nLines, nWords: CARDINAL] = 
BEGIN 

deb: DCBptr; 
WHILE nLines*SIZE[DCB] + lastLineSize > nWords DO 

nLines ♦• nLines - 1; 

ENDLOOP; 
firstDCB ♦• deb ♦• bitmap; 
THROUGH [0. .nLines) DO 

deb. next ^ deb + SIZE[DCB]; 

deb. height ♦- 1 ineHeight/2; 

deb ^ deb. next; 

ENDLOOP; 
lastDCB ♦- dcb-SIZE[DCB]; 
lastDCB.next ♦• DCBnil ; 

bmFirst ♦■ L00PHOLE[dcb . OrderedPOINTER] ; 

bmLastLine ♦- LOOPHOLE[bi tmap+nWords-lastLineSize, OrderedPOINTER]; 
bmState *- [origin: bmLastLine, wordsPerLine: MaxWordsPerL ine , x:, y:0]; 
END; 

currentPages , eurrentLines, eurrentDummySize: CARDINAL; 

DisplayOff: PUBLIC PROCEDURE [color: Displ ayOefs .Background] = 
BEGIN 

IF -displayOn THEN RETURN; 
SetSystemDisp1aySize[0,0]; 
font. c1ose[font]; 
dummyOCB. background ♦• color; 
dummyOCB. height ♦• 1; 
END; 

DisplayOn: PUBLIC PROCEDURE = 
BEGIN 

IF displayOn THEN RETURN; 
dummyOCB. background ♦- white; 
SetDummyDisplaySize[ eurrentDummySize]; 
SetSys temDispl aySize[ eurrentLines , currentPages]; 
END; 

SetSystemDisplaySize: PUBLIC PROCEDURE [nTextLines, nPages: CARDINAL] = 
BEGIN OPEN SegmentDefs; 
IF displayOn THEN 

BEGIN 

firstDCB. next «- lastDCB.next; 

RemoveDCB[f irstDCB]: 

firstDCB *- lastDCB ♦■ currentDCB <- DCBnil; 

DeleteDataSegment[bmSegment] ; 

displayOn ♦- FALSE; 

END; 
IF nPages = THEN RETURN; 

currentPages ♦- nPages; -- for Display Off/On 
eurrentLines ♦■ nTextLines; -- for Display Off/On 
bmSegment *- NewDataSegmen t[Def aul tBase . nPages]; 

SetupB i tmap [Da taSegment Ad dress [bmSegment], nTextLines, nPages*Al toDef s . PageSize] ; 
displayOn ^ TRUE; 
ClearDS[systemDS]; 

InsertDCB[new: firstDCB, before: dummyDCB . nex t] ; 
RfTURN 
CND; 

SelDummyDisplaySi/e: PUBl IC PROCCDURF [nScanLines: CARDINAL] = 
BfGIN 

eurrentDummySize *- nScanl ines; -- for Display Off/On 
If nScanl ines/2 = dummyDCB . heigh t THFN RFTURN; 
IF dummyDCB. height ^ IHFN RemoveOCB[dummyDCB] ; 
dummyDCB . heigh t ♦- nScanl ines/2; 

IF dummyDCB. height // THFN Inser tDCB[new: dummyDCB. before: firstDCB]; 
RFTURN 
FND: 
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ClearDS: PROCEDURE [stream: StreamHandle] « 
BEGIN 

deb: DCBptr; 
IF stream # systemDS THEN 

SIGNAL StreamDefs.StreamError[stream,StreamTyp9]; 
IF typescript if NIL THEN typescript . reset[typescript]: 
IF -displayOn THEN RETURN; 
FOR deb ^ firstOCB, deb . next DO 

deb. resolution ♦• high; 

deb, background ♦• white; 

deb. indenting ^ deb. width ♦- 0; 

deb. bitmap ♦• bmLastLine; 

IF deb = lastDCB THEN EXIT; 

ENDLOOP; 
bmNext ♦• bmFirst; 
bmTail ♦• bmLastLine; 
currentDCB 4- firstDCB; 
CI earCurrentLine[ stream] ; 
RETURN 
END; 

ClearCurrentLine: PUBLIC PROCEDURE [stream: StreamHandle] = 
BEGIN 
IF stream # systemDS THEN 

SIGNAL StreamDef s.StreamError[stream,StreamType] ; 
IF typescript # NIL THEN 

StreamDef s .Setlndex[ typescript. startLine]; 
IF --displayOn THEN RETURN; 
bmLastLi^e'^ «- 0; 

In! ineDefs.COPY[f rom: bmLastLine, to: bmLastLine+1 , nwords: lastLineSize-l] ; 
currentDCB . indenting ♦• 0; 
currentDCB. b i tmap ♦• bmLastLine; 
currentDCB. width ^ MaxWordsPerLine; 
bmState.x ♦- LeftMargin; 
TABindex <- 0; 
RETURN 
END; 

Scroll: PROCEDURE [char: CHARACTER] = 
BEGIN 

deb: DCBptr; 
pos: CARDINAL; 
SELECT char FROM 
CR => NULL; 
TAB => 
BEGIN 

TABs[TAB index] <- bmState.x; 
TABindex ♦- TABindex + 1; 
pos *- (bmState.x/tabWidth + l)*tabWJdth; 
IF pos < RightMargin THEN bmState.x ♦■ pos 
ELSE DPutChar[systemDS. SP]; 
RETURN 
END; 
NUL => RETURN: 
ENDCASE => 

IF char < 40C THEN 
BEGIN 

DPutChar[systemDS, ' t]; 
DPutChar[systemDS, 

LOOPHOl E[LOOPHOLE[char,CARDINAL] + 100B. CHARACTER]]: 
RETURN 
END; 
-- Do the scroll, assuming last (current) line is in bmlast! ine. 
-- scroll all others by BlTing their DCBs. move old last line to 
-- new bitmap and free bmlastLine for reuse. 
UNTII Compact[currentDCB, bmState.x] DO 

rr -DeleteTopl ine[] THEN RETURN;-- not enough space 
ENDl OOP; 
If currentDCB if lastDCB THEN currentDCB ^ currentDCB . next 
El SE 
BEGIN 

TF r irstOCB. width ft THEN 
[] ♦- DeleteTopl ine[] ; 
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FOR deb ♦• firstDCB, deb. next UNTIL deb = lastDCB DO 

InlineDefs.COPY[from: dcb.next+1, to: dcb+1, nwords; SIZE[DCB]-1]; 
— assumes "next" is in word zero 
ENDLOOP; 
END; 
IF typescript # NIL THEN startLine ♦• StreamDef s .Getlndex[typescript] ; 
C1earCurrentLine[systemDS]; 
IF char n CR THEN DPutChar[systemDS, char]; 
END; 

DeleteTopLine: PROCEDURE RETURNS [BOOLEAN] = 
BEGIN 

deb: DCBptr; 

-- find first line with bitmap allocated 
FOR deb ♦- firstDCB, deb. next DO 

IF deb. width # THEN EXIT; 

IF deb - lastDCB THEN R£TURN[FALSE] ; -- found no top line to delete 

ENDLOOP; 
deb. width ^ deb . indenting ♦• 0; 
-- find next line with bitmap allocated 
UNTIL deb = lastDCB DO 

deb ♦• deb . next; 

IF deb. width ff THEN 

BEGIN bmTail ♦- deb. bitmap; EXIT END; 

REPEAT FINISHED => -- all linex deleted 

BEGIN bmTail ♦• bmLastLine; bmNext ♦- bmFirst END; 

ENDLOOP; 
RETURN[TRUE]; 
END; 

Compact: PROCEDURE [deb: DCBptr. x: CARDINAL] RETURNS [BOOLEAN] = 
BEGIN 

newWidth: CARDINAL ♦- (x+15)/16; 
oldWidth: CARDINAL ♦- deb. width; 
old: OrderedPOINTER ♦• deb. bitmap; 
lineHeight: CARDINAL ^ deb . height*2 ; 
p, new: OrderedPOINTER; 
d: CARDINAL; 

IF X <= LeftMargin THEN d ♦- 
ELSE 

FOR d IN [0. .newWidth) DO 
p ♦• old + d; 
THROUGH [0. . 1 ineHelght) DO 

IF pt # THEN GO TO foundit; 
p ♦• p + oldWidth; 
ENDLOOP; 
REPEAT foundit => NULL; 
ENDLOOP; 
IF d > THEN 
BEGIN 

newWidth ^ newWidth-d; 
old <- old + d; 
END; 
newWidth ♦- Even[newWid th] ; 
IF newWidth > THEN 
BEGIN 

If (p ♦- new ^ GetMapSpaee[newWidth*l ineHeight]) = OrderedNIL THEN RETURN[FALSE] ; 
THROUGH [0. .1 ineHeight) DO 

In! ineDefs .COPY[From: old, to: p. nwords: newWidth]; 
old *■ old + OldWidth; 
p ♦- p + newWidth; 
ENDLOOP; 
deb . inden ting ♦- d ; 
deb. width <- newWidth; 
deb . b i tmap ♦- new; 
TND 
nsr deb . indent ing ^ deb. width ♦- 0; 
RETURN [ TRUE ]; 
END; 

GetMapSpace: PROCEDURE [nwords: [0..77777B]] RETURNS [p: OrderedPOINTER] = 
BEGIN 

t: INTEGER; 
DO 
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t *- bmTail - bmNext; 
IF t < THEN 

IF bmLastLine >= bmNext+nwords THEN EXIT 
ELSE bmNext ^ bmFirst 
ELSE 

IF t >= nwords THEN EXIT 
ELSE RETURN[OrderedNIL]; 
ENDLOOP; 
p ♦• bmNext; 

bmNext ♦• bmNext + nwords; 
RETURN 
END; 

DPutChar: PROCEDURE [stream: StreamHandle, char: UNSPECIFIED] = 
BEGIN 

IF stream # systemDS THEN SIGNAL StreamDef s .StreamError[stream,StreamType] ; 
IF ---displayOn THEN RETURN; 
IF char > 377B THEN RETURN; 
IF char < 408 OR 

bmState.x + font.charW1dth[font, char] > RightMargin THEN Scron[char] 
ELSE font.painLChar[font,char,QbmState]; 
RETURN 
END; 

OPutCharTS: PROCEDURE [stream: StreamHandle, char: UNSPECIFIED] = 
BEGIN 

DPutChar[stream, char]; 

IF typescript # NIL THEN typescript .put[ typescript , char]; 
RETURN 
END; 

ClearChar: PROCEDURE [stream: StreamHandle. char: UNSPECIFIED] = 
BEGIN 

IF stream if systemDS THEN SIGNAL StreamDef s .StreamError[stream,StreamType] ; 
IF displayOn THEN 
BEGIN 
SELECT char FROM 

NUL. CR. > 377B => RETURN; 
TAB => 
BEGIN 

IF TABindex > THEN 
BEGIN 

TABindex ♦■ TABindex -1; 
bmState.x *- TABs[TABindex] ; 
END; 
RETURN 
END; 
< 40B => 
BEGIN 

ClearDispl ayChar[ stream, char+lOOB] ; 
char ♦■ 't; 
END; 
ENDCASE => NULL; 
font. clearChar[ font. char .QbmState] ; 
END; 
RETURN 
END; 

ClearDisplayChar: PUBLIC PROCEDURE [stream: StreamHandle, char: UNSPECIFIED] 
BEGIN 

ClearChar[stream, char]; 
IF typescr ipt ff NIL THEN 

BEGIN OPEN StreamDefs; 

Set Index [typescr ipt. ModiryI,idex[GetIndex[typescript],-l]]; 

END; 
RETURN 
END; 

GetNop: PROCfDURr [stream: StreamHandle] RETURNS [UNSPfCIFTED] = 
BEGIN 

ERROR StreamDefs . S treamFrror[s tr earn, StreamAc cess] 
END; 

PutbackNop: PROCfOURE [stream: StreamHandle, char: UNSPfCTnCD] = 
BEGIN 
ERROR StreamDefs . S treamFrror[s tre am, StreamAc cess] 
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END; 

EndofNop: PROCEDURE [stream: Streamllandle] RETURNS [BOOLEAN] » 
BEGIN 

IF stream tf systemDS THEN SIGNAL StreamDef s .StreamError[stream,S treamType] ; 
RETURN[FALSE] 
END; 

DestroyNop: PROCEDURE [stream: StreamHandle] » 
BEGIN 

ERROR StreamDef s.StreamEr ror [stream, StreamAccess] 
END; 

ddarray: ARRAY [0 . .SIZE[DCB]] OF UNSPECIFIED; 

InsertDCB: PROCEDURE [new: DCBptr, before: DCBptr] = 
BEGIN 

deb: DCBptr; 

FOR deb ^ new, deb. next DO 
IF deb. next = DCBnil THEN 

BEGIN deb. next ♦- before; EXIT END; 
ENOLOOP; 
FOR deb +- DCBchainHead, deb. next DO 
IF deb. next = before THEN 

BEGIN deb. next ♦- new; EXIT END; 
ENDLOOP; 
END; 

RemoveDCB: PROCEDURE [deb: DCBptr] = 
BEGIN 

prev: DCBptr; 

FOR prev ♦- DCBchainHead , prev. next UNTIL prev. next = DCBnil DO 
IF prev. next = deb THEN 

BEGIN prev. next ^ deb, next; EXIT END; 
ENDLOOP; 
deb. next «- DCBnil ; 
END; 

Even: PROCEDURE [a: UNSPECIFIED] RETURNS [UNSPECIFIED] = 
BEGIN RETURN[a + L0OPHOLE[a , CARDINAL] MOD 2] END; 

SetFont: PUBLIC PROCEDURE [f: FontDefs . FontHandl e] = 
BEGIN OPEN SegmentDefs; 
font ♦- f: 

lineHeight ^ Even[font . charHeight[font . ' A]] ; 
lastLineSize ♦- 1 ineHeight*MaxWordsPerLine; 
tabWidth ♦- font . charWidth[font, SP]*8; 
RETURN 
END; 

SetTypeScript: PUBLIC PROCEDURE [ts: StreamDef s . Di skHandl e] = 
BEGIN 

systemDS.put ♦- IF (typescript ^ ts) = NIL THEN DPutChar ELSE DPutCharTS; 
RETURN 
END; 

InitDisplay: PUBLIC PROCEDURE [dummySize, textLines, nPages: CARDINAL, f: FontDeTs . FontHandle] 
BEGIN OPEN SegmentDefs; 
IF font ft NIL THEN f on t . destroy[ f ont] ; 
SetFont[f]; 

SetDummyDisp1aySi2e[ dummySize] ; 
SetSystemDisplaySi7e[texLLines . n Pages ] ; 
RFTURN 
END; 

CleanupD ispl ay : IinageOe fs .CI eanupl tern *- [1 ink :, proc : Cleanup] ; 

Cleanup: IniageDefs . CleanupProcedure = 
BEGIN 
SCLFCT why FROM 

rinish. Abort => DCBcha i nHead . nex t ♦- DCBnil; 

ENDCASE; 
END; 

TmagenGfs . Ad dCl ean up Procedure [@C1 eanupO ispl ay] ; 
dummyOCB ^ f ven[BASr[ddarray ] ] ; 
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dummyDCBt *- [DCBnil , high .white ,0 ,0 , LOOPHOLE[0 .OrderedPOIMTER] ,0] ; 
END. 



